#!/usr/bin/env perl
# A placer dans le fichier contenant les FILMS.txt et a exécuter
use strict;
use warnings;

my $fic;
my $i;
my $synopsis="";

while (<*>){
	$fic=$_;
	open(FIC,$_)||die("Erreur d'ouverture de fic");
	$i=1;
	while(<FIC>){
		if ($i eq 8){ # le synopsis est sur la 8e ligne du fichier txt
			$synopsis=$_;
		}
		$i++;
	}
	close(FIC);
	open(FIC, ">$fic" )||die("Erreur d'ouverture de fic");
	print FIC $synopsis;
	close(FIC);

}
print("Extraction du synopsis terminée \n");


